Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar/1998/Jan/di9801kw/PropExp1.dfm/PropExp1.txt

Text File | 1997-07-30 | 7KB | 272 lines

object frmPropExplorerExpert: TfrmPropExplorerExpert
  Left = 194
  Top = 80
  ActiveControl = cmbValue
  BorderStyle = bsDialog
  Caption = 'Property Explorer'
  ClientHeight = 320
  ClientWidth = 556
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PopupMenu = popAbout
  Position = poScreenCenter
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 29
    Top = 100
    Width = 27
    Height = 13
    Alignment = taRightJustify
    Caption = '&Value'
    FocusControl = cmbValue
  end
  object Label2: TLabel
    Left = 28
    Top = 12
    Width = 28
    Height = 13
    Alignment = taRightJustify
    Caption = '&Forms'
    FocusControl = lbxForms
  end
  object Label3: TLabel
    Left = 7
    Top = 280
    Width = 522
    Height = 17
    AutoSize = False
    Caption =
      'Warning: the forms must be saved before the locator can find all' +
      ' the properties with this value.'
    WordWrap = True
  end
  object cmbValue: TComboBox
    Left = 64
    Top = 96
    Width = 257
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    OnChange = EnableLocate
  end
  object btnLocate: TBitBtn
    Left = 459
    Top = 4
    Width = 89
    Height = 25
    Hint = 'Locate the entered value'
    Caption = '&Locate'
    Default = True
    Enabled = False
    TabOrder = 7
    OnClick = btnLocateClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object btnCancel: TBitBtn
    Left = 459
    Top = 32
    Width = 89
    Height = 25
    Hint = 'Close the explorer'
    TabOrder = 8
    Kind = bkClose
  end
  object stgResults: TStringGrid
    Left = 8
    Top = 148
    Width = 540
    Height = 127
    TabStop = False
    ColCount = 4
    DefaultColWidth = 129
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 7
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect, goThumbTracking]
    TabOrder = 10
    OnDblClick = stgResultsDblClick
    OnEnter = stgResultsEnter
    OnExit = stgResultsExit
  end
  object hdrResults: THeader
    Left = 8
    Top = 128
    Width = 523
    Height = 21
    Sections.Sections = (
      #0'130'#0'Form'
      #0'130'#0'Object'
      #0'130'#0'Property'
      #0'35'#0'Value')
    TabOrder = 9
    TabStop = True
    OnSizing = hdrResultsSizing
  end
  object lbxForms: TListBox
    Left = 64
    Top = 8
    Width = 257
    Height = 81
    ItemHeight = 13
    MultiSelect = True
    Sorted = True
    TabOrder = 0
    OnClick = lbxFormsClick
  end
  object cbxMatchCase: TCheckBox
    Left = 332
    Top = 82
    Width = 113
    Height = 17
    Caption = ' Case &sensitive'
    TabOrder = 5
  end
  object cbxWholeWords: TCheckBox
    Left = 332
    Top = 102
    Width = 113
    Height = 17
    Caption = ' &Whole words only'
    TabOrder = 6
  end
  object btnAll: TButton
    Left = 12
    Top = 36
    Width = 45
    Height = 21
    Hint = 'Select all forms'
    Caption = '&All'
    TabOrder = 1
    OnClick = btnAllClick
  end
  object btnNone: TButton
    Left = 12
    Top = 64
    Width = 45
    Height = 21
    Hint = 'Select no forms'
    Caption = '&None'
    TabOrder = 2
    OnClick = btnNoneClick
  end
  object btnShow: TBitBtn
    Left = 459
    Top = 96
    Width = 89
    Height = 25
    Hint = 'Open form and select object'
    Cancel = True
    Caption = 'S&how'
    Enabled = False
    TabOrder = 12
    OnClick = btnShowClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
      07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
      0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object pnlStatus: TPanel
    Left = 0
    Top = 299
    Width = 556
    Height = 21
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    TabOrder = 13
  end
  object ragSearchIn: TRadioGroup
    Left = 332
    Top = 6
    Width = 105
    Height = 71
    Caption = 'Search in'
    ItemIndex = 2
    Items.Strings = (
      'Na&me'
      'Val&ue'
      '&Both')
    TabOrder = 4
  end
  object btnSave: TBitBtn
    Left = 459
    Top = 64
    Width = 89
    Height = 25
    Hint = 'Save the results to a file'
    Caption = 'Sav&e'
    Enabled = False
    TabOrder = 11
    OnClick = btnSaveClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
      00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
      00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
      00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
      0003737FFFFFFFFF7F7330099999999900333777777777777733}
    NumGlyphs = 2
  end
  object popAbout: TPopupMenu
    Left = 208
    Top = 16
    object mni1: TMenuItem
      Caption = '     Property Explorer'
      ShortCut = 0
    end
    object mni2: TMenuItem
      Caption = '         Version 1.0'
      ShortCut = 0
    end
    object mni3: TMenuItem
      Caption = 'Written by Keith Wood'
      ShortCut = 0
    end
  end
  object dlgSave: TSaveDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    FileName = 'PropExpl'
    Filter = 'Text files|*.txt|All files|*.*'
    InitialDir = 'C:\Temp'
    Options = [ofOverwritePrompt, ofExtensionDifferent, ofCreatePrompt]
    Title = 'Save Located Properties'
    Left = 244
    Top = 16
  end
end